home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ MSOXP OTL Options 4.xpl < prev    next >
Text File  |  2003-05-11  |  2KB  |  53 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Program Options\Microsoft Office\MS Office XP\Outlook"
  5. "NAME"="Address Bar Bug Solver"
  6. "VERSION"="1.10"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Allow Address Bar to stay right hand"
  9. "DESCRIPTION 1"="Outlook XP has a little, but annoying bug with address bar that is displayed just below your toolbar: Regardless how far right you have moved your address bar, as soon as you exit Outlook and start it again, the address bar will cover the entire space again."
  10. "DESCRIPTION 2"="This is really annoying since the address bar is simply wasting space in this case. Just exit Outlook XP, hit the button and from that point on, the address bar will stay where you left it when exiting Outlook."
  11. "DESCRIPTION 3"="Please note that this is a bug solver plug-in. If you don't encounter this bug, you do not need to use this plug-in!"
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com/"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All rights reserved."
  15. "COMMENT 1"="Tweak detected by Sedar's Win2k newsletter - tweak by Carl S.,"
  16. "COMMENT 2"="Thanks to Bill Dinger [billdinger@mindspring.com] for the enable/disable idea!"
  17.  
  18.  
  19.  
  20.  
  21. 'Declaration of some constants
  22. sV1="HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Outlook\Options\AddressBarWidth" 'DW: 1
  23. sPCheck="HKCU\Software\Microsoft\Office\10.0\Outlook\"
  24.  
  25. Sub Plugin_Initialize 
  26. if RegPathExists(sPCheck) then
  27.    if RegReadValue(sV1)="1" then
  28.       Call SetUIElement(1,true)
  29.    end if
  30. else
  31.    Disable()
  32. end if
  33. END SUB
  34.  
  35. 'Called when the Plugin should validate the Data the user has entered
  36. SUB Plugin_CheckData(ElementIndex)
  37. END SUB
  38.  
  39. 'Called when the Plugin should apply the changes
  40. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  41.  if GetUIElement(1)=true then 
  42.     Call RegWriteValue(sV1,"1",2)
  43.     'Call MsgInformation("Done! You can start Outlook again.")
  44.  else
  45.     if RegValueExists(sV1) then RegDeleteValue(sV1)
  46.  end if
  47.  
  48. END SUB
  49.  
  50. 'Called when the Plugin is about to be removed from memory
  51. SUB Plugin_Terminate
  52. END SUB
  53.